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Problem 


There have been inquiries about the option of posting invoices vdthout 
having to return to the Main Menu. The only purpose behind this would be 
to save time and not have to load those large programs back in. If these 
changes are done, then a OOMPIBTE posting must be done since the selection 
of invoices is done from the Main Menu and is bypassed. 


Solution 


QOItJG DIRECTLY TO INVOICE PC^ING FROM INVOICE MAINTENANCE: 

To add the cation of running the POST INVOICES function from the INVOICE 
MAINTENANCE function vdthout returning to the MAIN ^GN□ first, the 
following changes can be made. Note that you nust request a Complete 
posting since the selection process is done from the main menu and will be 
bypassed. 


The problem is corrected by following the steps listed below. 

1. Backup the diskette(s) and make the changes on the Backup copy of the 
program. 

2. In BASIC load the program by typing LaAD"APINVCE/BAS". 

3. ^feke the following corrections: 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 
Old Line: 502 ERINT@(23,20),EL$"> ENTER A SEIECTION :";:FL=l:G0SUBlj3: 
IFCF=1THEN850ELSEIFCF<>0THEN502 

New Line: 502 FRINT@(23,20),EL$"> ENTER A SEIECTION :";:FL=1:GOSOB10: 
IFCF=lCRCF=2THEN850ELSEIFCP<>0raEN502 
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Old Line: 850 PRINT@(23,20),EL$;R$"RETURNING TO MAIN MENU"N$CLOSE: 

OPEN"O",1,VP$:PRINT#1,I;IT;IN;ID;IS;IH;VT;VN;VD;EP;TD;R0;R1;R2;R3;R4;R5; 
R6;R7;R8;PC;LC;STR$(CP#)+"D0" 

New Line: 850 CL0SE:0PEN"0",1,VP$:PRINT#,I;IT;IN;ID;IS;IH;VT;VN;VD;EP; 
TD;R0;R1;R2;R3;R4;R5;R6;R7;R8;FC;LC;STR$(CP#)+"D0" 

Old Line: 860 F0RW9-1T0VN-1:PRINT#1,P(W9,0);P(W9,1):NEXT:F0RW9“1T0IN-1: 

PRINT#1,I(W9):NEXT:CLOSE1:RUN"APS/BAS 
New Line: 860 FORW9-1TOVN-1:PRINT#1,P(W9,0);P(W9,1):NEXT:FORW9»TOIN-1: 
PRINT#1,1(W9):NEXT:CLOSE1:RUN"AP S/BAS 

Old Line: 1024 PRINT:PRINTTAB(10);FNRV$("D");"ELETE";TAB(25);FNRV$("E"); 
"DIT";TAB(40);FFNRV$("N");"EXT" 

New Line: 1024 PRINT:PRINTTAB(10);FNRV$("D");"ELETE";TAB(25);FNRV$("E"); 

"DIT;TAB(40) ;FNRV$("N") ;"EXT";TAB(55);raRy$('; F2") " P O ST INVO ICE S" 

ADDITIONS (Type the line followed by an <ENTER>) 

870 IFCF=2THENRUN"APP0ST/BAS"ELSERUN"APS/ABS" 

4. Type SAVE"APINVCE/BAS" and press <ENTER>. 

5. At TRSDOS Ready, make a backup copy of the diskette. 









